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NATIONAL 0S9 USER GROUP NEWSLETTER 



EDITOR : Gordon Bentzen 

HELPERS : Bob Devries and Don Berrie 

SUPPORT i Brisbane 0S9 Level 2 Users Group. 



The National 0S9 group continues to grow. As each month passes we are gaining new members at the rate of two* 

three or four each month. It does seem that this operating system has a growing number of followers* it certainly 

deserves to have. 0S9 offers to us many very powerful features* such as sharable devices* files and modules* plus 

multitasking etc. but then you have heard all this before haven't you* so let's get back to the National 0S9 user 
group for a moment. 

With new members joining each month we are faced with the question of subscription expiry dates* what should they 
be ?? As many of you would be aware* we elected to provide a JULY '88 newsletter from our own funds to give you a 
sample of the new National 0S9 Newsletter* this was extended to also provide a copy for AUGUST 'SB. The result is 
that the majority of your subscriptions were then treated as commencement 1st. September* and this made things 
pretty easy to keep track of. The fact that some newer members have asked about backcopies has prompted some 
further thought on this delicate problem. To cut a long story short* we have elected to provide back copies to ail 
current members so that we can still work on a common expiry date of 31st. AUG '39. This means that all current 
members will be entitled to a copy of the monthly newsletter commencing from SEPT 'SB. 

A copy of the July and August '38 editions will also be provided so that all will have the ccplete set as it were. 
This will mean some reprinting which is currenty being organised. We do expect some delays here* so you should 
receive this December edition prior to any back copies due* but don't worry all should be mailed well before the 
end of January. 

With the year of 1988 very rapidly drawing to a close* many of us will have thoughts of Christmas celebrations* a 
holiday away from the work place or the normal routine but we will also be preparing plans to carry us into a brand 
new year. As you would expect* some of this will affect our Newsletter* and the first is that we are planning 
material for our FEB 19B9 edition. Yes you'e right* there will be not be a JANUARY 1989 edition. 

Now the Good News! We are able to bring you a new article on 'C thanks to Ross McKay who has sent in a very 
interesting article "Making the Most of Microware C - Part I" The receipt of this material from — Rosko! — caused 
the total disruption' of one of our newsletter planning meetings. It was a case of MUST READ before we did anything 
else. We are sure that this will interest many of our readers as well* and we can't wait to see a Part II. This is 
great material Rosko, many thanks for sharing it with us. 

MERRY CHRISTMAS and a HAPPY, SAFE k PROSPEROUS i€W YEAR to ALL 
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this i- c. 

Ncii> don't get se *rong, I have no-hing against C generally, otherwise I moulds t use it so much. C compilsrs 
still produce machine code programs, cut they can't ^atcn case written in tight assembly language for ra^ speed 
(net to mention code size). Many of rhe functions m the C library are used often in C programs, and their 
efficiency can greatly affect the efficiency of tne programs using them. Sc I set out to discover the secrets of 
anting C library functions in assembly language... and discovered that it really is quite easy: 

Before you rush off to merrily rewrite all of your C functions in assembler, there are a couple of points you 
should heed: 

1. 630? C reserves registers U, V and 3 so you must restore them to their initial values on return (RTS) if you 
modify them. Likewise for t&WM C uji th D4~D7«h2-a7, 

iiiSm in -.iie ■_■ iiurdry... i-if iiuTdry i; yroupeu i.-, ; to iituGuiesi you ^_an examine rnem usir»g ruump = '.re? example 
ail tne sranGaro string functions* inciuoing strienwi strcpyu? strcati/ ano strempu are in one TfOGuiS/i it 

unii ■■ p i~ i.i^r. r ^ .-. ?wti .■* j^ f», q + K -^ t^ jn .-*.t i ?• : ^ .— . — . .— f ^ t* +■ r~. jtl s*' T "•■■ "■ ~.^ 

ji_'U juSi. iiJdm. ^.u iij -Liiilci -i i)jG --ju ■ | u = c a wi> :crciit ;;-q.-kc. 

tunction to tmd tne length of a string^ noy co ue get tne pointer to the string' wEii? in GdSo'^ ■., ai^ arguments are 
pssseo on the stack, so that ^hen a function is BSR'eo to, it executes aith 3 pointing to the return address, S+2 
to the first argument, and so on. It does this Dy pushing arguments last-to-first onto the stack before calling the 
function. 

T argi LSB i 3,3 

i argi HSB 1 2>S 

1 RTS addr L3Ej_ 1,3 
S -> i RTS a6^r rlSE; 3,S 

Note that C handles everything at ^crd-size, i.e. 2 bytes for the 6S39, except with long integers (4 Dytes) and 
douoies (3 bytes). 

In 63009 C T because the^re are 3000 many registers, the first 3 bytes of the arguments are passed in registers 
DB/Dii and the rest on the stack in the same fashion as 6339 C (but uord size is 4 Bytes), For the abo\-e example, 
the argument aouid be passed m D0. The exceptions ars doubles, union are passeci on the stack. 

To access arguments on the stack, you offset the stack pointer by the ujerd size (2 bytes 6SS9 T 4 bytes -66380 ) 
to allow for the RTS address T plus the number of bytes tor preceding arguments. For the above example* on the 680? 
you mould LDD 2,3 to load the uiord 2 bytes above the bottom of the stack. If there mere 4 integer arguments, tc 
access the 4th argument you mould LDD 3,3 (6809) or flOVE.L 16iSP),D0. Note that if yGu change the stack pointer at 
all, for example by pushing registers (PSHS or MOVE.L ...,-(SPH or by allocating stack space for variables, you 
must change the offset to arguments accordingly. For example, on the 6809 if you PSHS U and uant to access the 
first argument, it is now at 4,3. 
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That now lets us pass an argument. Dm wnat adout rerurnmg an answer 7 C allows only one return value per 
function, ana it siust be in one of the basic data types imt? long? pointer { aoubie). This is so that return values 
can be put into the default d&xa register. On ihQ 6S803| all return values are returned in D3 except doubles wnich 
are returned in D3/D1. On the 682? , mt and pointer arguments ars returned in d, but douDles and longs are funny; 
they are returned on the stacKi with a pointer to thes returned in X, Note that C converts arguments of type cnar 
and short to mt, and float to double. READ LAST SENTENCE AGAIN. 

OK, now we knout enough to writs a C function. Something easy is in order to begin with* so lets write a 
function to get the length of a string. lengthO is passeo a pointer to a string, terminated with a NULL (S), and 
returns as an integer the length of the string. It's really a clone of strisn, 

* 6639 version 

* int length is) char *s! 

psect length_a,3,3 T 0,3,3 

length: ld>: 2 f s get pointer in X 

lengthl tst ,>;+■ look for NULL 

bne lengthl 

lea>; -M don't count the NULL 

tfr >;,d get end address in D 

subd 2tS subtract start address 

i L3 

endsect 

* 63323 version 

* int length (s) char *sf 

psect length^a^S^^S 

length: ftovea.l d0 T a8 get pointer in A3 

length! tst.b (a0) + look for NULL 

bne.s lengthl 

subq.l #l,a3 don't count NULL 

sub.i 30*d3 subtract end front start address 

neg.I d3 get sign right 

rts 

endsect 

Type in the version for your machine, and save it in a file called length. a. To use it frost a C program, you 
just call it with 

>; = length (strpomter); 
as you would to call strienO, and compile your C program with the following syntax! assuming fred.c 

cc fred.c length. a -f=fred 
(OS-9/6889 users use ccl or cc2 if you haven't patched xt^ compiler yet :-) 

Weil, Tm thoroughly sick of typing now, so bye till ne>:t time. 

—Rcsko!-- 
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STARTING OUT VITH 0S9 
Hodifying your systei disk. 

For ust people, this seen to be a daunting task at the best of tiies. Hon do you do it ? Hell, the information is 
right there in the manual. Of coarse, I'll admit to there being other and perhaps easier Nays to do the saie thing. 
Host people now-a-days Mould at least like to set up their 0S9 for different disk drives. Let ie say at the start 
of all this that I Hill be referring to two-disk systeis only. To use OS? on anything less is nothing less than 
eicruciatingly painful, especially in the nodification stage. If you don't have tin disk drives, then try to get 
together with sow-one who has, and please try to get another one yourself. 

One of ty lain probleis now is to keep referring to both the Level One and Level Two 0S9 systeis. I'll start out by 
talking about the Level One systei briefly. Host modifications for Level One are at the grass-roots level, in that 
He would need to lodify the device driver 'CCDISK' and the device descripter '00* and *BI' using the program 
'DEBUG*. This is a fairly lengthy process and outside the scope of this part of ly series. I nil! address this 
problei in the near future however. Suffice it to say, that if you have been subscribing to 'The Rainbow' froi the 
USA then a patch file for taking 'CCBISK' into double sided appeared in the October '88 issue of that magazine 
under the naie 'DiskFix' and 'ForsatFix*. These files are coiplete, and save the lodified todules to your current 
data directory. If you then replace the original file 'CCBISK.DR* in the Mdules directory of the Level One disk, 
you can run the 'Config' program to create a new disk. Don't forget to lodify the device descriptors as well. 
Wore on that later. 

I nill now refer exclusively to Level Two systeis. The second of the two disks contains a directory called 
'NODULES'. In it there are all the necessary drivers and descripters to create a new systei disk. The easiest (and 
slonestl way to create the new systei is to fonat a disk for 39 track single sided and use it to produce a new 
boot disk with the new disk drivers on it. Use the 'Config' program to install these. For those of you with 128K 
CdCo 3 uchines, you will probably get an error when the config tries to call the *0S96en' program. BOUT PANIC ! 
This is not at irretrieveafale situation! Vhen ym get this situation, type this line:- 

OSWEM /DJ </B0/N0DULES/BOOTLIST 

This will rerun the saw conand that Config was trying to do when it ran out of wiory space. Vhen running by 
itself, it has enough inory to coiplete its task. 

Now you have a 33 track disk that has 40 or 80 track descriptors on it. Bon't worry! They are compatible, as a 
higher track siie descripter can read the lower track size disks. This is all done in the 'CC3BISX' device driver. 
Vhen you boot up 0S9 with this disk, you will be able to fonat a disk with your specified number of tracks and 
sides. Vhen you have done that, it is an easy task to use the conand 'COBBLER' to pit your current boot on this 
new disk. Just type 'COBBLER /Bi* and there you are, a disk with the 0S9Boot file on it. Now you can copy all your 
files froi your boot disk onto it. An easy way to do this is to type this conand :- 

DSAVE /BO /Bl ! SHELL 

After sow tiie all your files will be transferred froi your source to your destination disk. Ob, by the way, it'll 
look like the cnputer is giving itwlf conands, which is exactly what dsave does do. 

Of course, there are going to be sow questions about all this. I ai going to anticipate at least one of these, and 
that is 'where is the 80 track descriptor for drive /BO ?'. Veil you're right there isn't one, we'll have to lake 
one. Unfortunately, this will require the 'save* conand (not on the Level Tuo disks) and the nodpatch conand 
(which Is). For those of you who have access to the Level One 'save' utility, yon iay safely use it. Those that 
don't, it is available on the 0S9 development disk. You could also probably arrange something through this or your 
local user group. (Ring ie or drop w a line if you get into trouble) 



Now first of all, these conands lust be in wiory beforehand 

SAVE for saving the new ndule, and 
NODPATCH to lodify the old one. 
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So firstly type LOAB SAVE HOBPATCH 

You'll need to save the neii udule onto the disk ii drive /Bl because you'll be changing the descriptor for drive 
/dO aid I doi't think 0S9 would like that. Hon He get to the patching part. Type these coiiands exactly as they are 
here:- 

■od patch 
1 dO 

c 14 00 03 
c 16 01 03 
c 17 23 50 
c 19 01 02 
v 

Now press CTRL aid BREAK together. You'll aotice that wdpatch echoes soie of your characters back at you, this is 
lonal. Hon it is tiie to save the lodule. type this:- 

SAVE /di/dOJOd.dd dO 

Vfcen this is finished, reboot the systei, copy the neN ndule into the wdiles directory of the 12 disk and go 
through the first part of this section to create the 80 track bootable disk. By the nay, this disk dill be bootable 
froi disk basic. Hake sure your drives are set for 80 track working if they're SNitchable. 

So noN you have a systei Nith the disk drivers to your satisfaction. If there are any questions, please feel free 
to ring m or drop ie a line, and I Mill try to answer yonr questions. 

Bob Bevries. 



Reading Logical Sector Zero (LSNO) 

Whilst in conversation nith Bon the other day, I felt the need for a program to print out the contents of the 
first part of the first sector of the disk (LSNO) along nith a short explanation of what the Barters all lean. So, 
I spent a fen hours writing a program in C (can't you see its ly favourite ?) to do just that. And after a 
Boderately long debugging session (the coipiler and I didn't agree on how to print hexadeciial) I caie up nith this 
program Nhich I called LSNO. 

The conand line fortat is LSNO /devicenaie 

If you get it wrong, it'll jo? your leiory to do it right. 

The source for the program is on the following pages. Mostly it just opens the disk as a file, reads a nuiber of 
characters froi it (that nuiber is set by the length of the structure ddsect) and then closes the file again. It 
then proceeds to print the titles for the data it retrieved, and the data in deciial or hexadeciial or string 
foriat, whichever suits the need. 

The program tells you what is printed in the Level Two lanual on page 5-2 of the *0S9 Technical Reference' 
section. It has the explanations in English instead of coiputer, and lay be of use to soie-one. 

Bob Bevries 
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(Include <stdio.h> 
•inclide <direct.h> 
unioi sec { 

long nuisecf 
char tsecHJl 
unsigned usee; 
)> 

lain (argc,argv) 
iflt argcj 
clap lapgvtl! 

r 



int fpi 

struct ddsect disk! 
iit i, count i 
union sec totseci 

pfliniUli 

for U'f;i<4fi«) totsec.tsecm - Mff'i 
if (argc != 2) 

{ 

useageO; 
exitlil; 
} 

if (argv[U[01 != 7'l 

{ 

useageOi 

exitll); 

} 

count 3 strlenfargvtH); 

for (i=l»'i <» count; U*\ 

{ 

if (irgvUHil « »/•) 

{ 

fprintf(stderr,'Is is not a device naie.\n\n a ,argv[l])i 

useageO j 

eiitff); 

} 
} 

argvMIcountH] = >n 
argvUHcountl = Ml'! 

if Mfp = open(argv[iJ,JEAll)) == EOF) 

{ 

fprintflstderr, 'Can't open Is for reading. \n\n\argv[lJJi 

useageU; 

} 
read(fp t fcdisk t 5izeof<diskHf 
dose(fp); 

totsec.tsecm = disk.ddjotlllf 
totsec.tsecm = disk.ddJoUilf 
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totsec.tsecm * disk.dd.totmj 

priitf fli LSN f description of ls.\B l ,ar9v[l])r 
printfC\n\n Total nuiber of sectors * lld.\n a f totsec.iuisec); 
priitf C Sectors per track = Xd.U'jdisk.dd.tsk); 
priitf (" lytes ii allocation up = Xu.\i , l disk.dd.nap)J 
priitf C Cluster size = fcMn-jdisk.ddjMt); 

totsec.tsecm = 4isk.dd.dirU]; 
totsec.tsecm = disk.dd.dirUl; 
totsec.tsecm = disk.dd.dirm; 

ppifttf (" Address of Root Directory = Xld.UVotsec.nuisecli 
printff 1 Owner nutber = lu.\B l ,disk.dd.Ni)|* 



totsec.tsecm = '\f'| 
totsec.tsecUJ = disk.dd.att; 

priitf <■ Attributes » II2X. \ n - , tot sec. usee I; 
printf ( f lisk II * lu.U'jdisk.dd.dskl; 
printf C Media foraat = Id \disk.ddjitl; 
SHitcMdisk.dd.fit) 
I 
case I : 

priitf (M8 tpi SKS.UMJ 

break; 
case l: 

printf C48 tpi SllS.U'JI 

break; 
case 2: 

priitf ('48 tpi MSS.U'l; 

break; 
case 3: 

printfiM8 tpi 99DS.\b v ); 

break; 
case 4: 

priitf C96 tpi SDSS.\i'l; 

break; 
case 5: 

priitf C96 tpi SBDS.U'Jf 

break; 
case 6: 

priitf ('96 tpi MSS.UMJ 

break; 
case 7: 

priitf C96 tpi IIK.U'H 

break; 
default: 

priitf (■ Can't identify fomt.UMi 
} 

priitf C Sectors per track (track II = lu.\n i ,disk.dd.spt)f 

totstc.tsecm = disk.dd.btUJ; 
tntsec.tsecm * disk.ddjtmj 
totsec.tsecm * disk.dd.btI2]; 
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printff Address of bootstrap file = lld.\a a ,totsec.iuisec)i 
printff Length of bootstrap file = Xu'.disk.ddjsz); 
if (disk.ddjsz « i) 

printff No boot installed. \n')i 
else 

printff.U'); 

printff Creation date : M2d/U2d/W2d M2d:M2d.\fi , ( disfc.dd.dateH), disk.ddJateUJ, disk.dd_dateI2], 
disk.dd_dateC3], disk.dd.dateMllj 
for (i-i\ i<32; ++il 
{ 

if (disk.dd.itaiem < §) 
i 

disk.dd.naieli] -= 128; 
disk.dd.naielni] = »VT| 
break; 
} 
} 
printff Voluie naie = ls.\fi\& l ) disk.dd.naie); 

1 

useageO 
{ 

fpriRtf(stderr, a \n Useage: lsn0 /devicenaieUU'l; 

} 



RUNNING A TERMINAL UNDER OS? : A TUTORIAL FOR THE COCO 

I guess, like aliost everybody else, you would at least like to see if it is possible to ru a teriiial on 
your CoCo. Yob Hill no doubt have noticed a niiber of couaids in the development pack which are used for 
conunication. Specifically they are Tsion, and Login. But does it work? 

Veil yes it does, and quite mil. There are however, sue liiitations, particularly when transferring files 
between lachines. However that is an issue for later on. First, let's look at sow different setups. 

Before He go any further, it really is a necessity to have soie type of genuine RS232 interface, either the 
so called Beluxe RS232 interface pack or equivalent. I believe that one of our leibers has developed his om 
version of that pack which he Hunts internally. Hopefully we light be able to persuade nil to nake soie of 
the hardware available for sale, or perhaps to provide details so that nwibers can lake their own. You will 
NOT be able to use the CoCo's built in serial port at the back of the taeniae. This leans that in lost cases, 
you will need a Hulti-Pak Interface as well! Still with us? 

If you do decide to try to use the built in serial port, you will find that it occupies so luch of the systei 
resources, that there will be aliost no processor tiie available to service any other processes. I really 
don't know why Hicroware included the driver and descriptor for /Ti in the systei. 

Other requirements will be, a teninal (obviously], a aull-iodei cable, or a cable to your mum, and soie 
type of teninal program for the reiote teninal. The wiring of null-iodei cables and the like has been 
described in a nuiber of other publications, particularly the US Rainbow, so we won't deal with it hen. 

Now to get the teninal running, we need to have the proper driver and descriptor in inory. (I use /T2 and 
ACIAPAK, but there is no reason why you can't use the /T3 nodules.) If you don't already have then in inory, 
it nakes sense to lerge thei into one file before you load thei so that they only occupy one 8K block. Use 
the ctniands : 
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Herge /Bf/H09ULES/t2.dd /B0/HOBULES/aciapak.dr >/B0/t2pak 
Attr t2pak e pe 
Load /B0/t2pak 

The next thins He need to do is to ensure the baud rates of both the teninal and the teriiaal port set the 
sue. Yon Mill have to set the baud rate for the teninal using whatever couands are required in the 
teriinal prograi. In soie cases, it iay be hard coded into the profane (eg XCQN9). Set the /T2 baud rate by 
using the coiiand : 

Xiode /T2 baud=x (where x is froi 1 to 7) 
(1 equals 300 baud ) 
(7 equals 19.2 Kbaud ) 

Once the baud rates are the latched, we are ready to start. 

In order for the teninal to be able to access the systei, Me need to give it sue resources. Ve do this by 
starting a shell on the cniunications port. There are two nays to achieve this. Ve can use the Tsion coiiand 
to do it automatically or Me can unually start a shell by redirecting a shell to /T2. 

Tsion is started by the coiiand : 

Tswn /T2t 

Once the process is started, it runs as a background task until it detects an incning <dt>. Vhen this 
happens, it Makes up, and inediately runs Login. Login then proipts the rente teninal for a User Kaie, and 
then for a Password. It coipares the answers given with those listed in the file /M/SYS/password, and will 
look for that file on the drive upon which the systei was first booted. In other words, for Taon to function 
successfully, you will need to leave your boot disk in its drive. 

The obvious use for Tsion is to allow other users to log onto your systei by the use of an external lodei. In 
effect, a very siiple Bulletin Board! A word of caution however. You will need to edit the /M/SYS/password 
file so that only those people that you want to be able to access your systei can do so. It is particularly 
important that you do not allow anyone to log on as User 0, as there are no liiits to the actions of that 
user, even if logged on to the systei via /T2. (Including refonatting disks, looking at personal uil files 
etc !!!). Be ultra careful if you have an auto-answer udei! Also lake sure that the lore "dangerous* 
conands do not have the public execute (pe) attributes set. 

The other way of starting a shell on /T2 is by the use of redirection. Try the following : 

Shell <>»/T2t or perhaps better ; Shell i=/T2t 

The first of these two couands will die when an EOF is sent, and will have to he restarted again fru the 
keyboard of the host. The second will automatically restart on EOF. This Hthod of starting the teninal 
shell would be lost suitable when you have another user connected via a null -nod en cable. 

I regularly use ly XT clone as a teninal to ly CoCo running at 19.2 Kbaud, and it works really well. In 
fact, when running at that speed, the screen updates are wen faster than those of the CoCo. I also find the 
ability to log onto another users systei a great advantage, and Bob Bevries and I regularly use each others 
systeis via our iodeis. (It's a bit slow at 300 baud, but it does work, and we find it lost convenient.) 

Next nnth, I will go further into the use of teninals, particularly with reference to file transfer using 
the 0S9 version of Kenit. Until then, if you need any assistance, call w on (07) 375 3236, or Bob Bevries 
on (07) 372 7816 and we will try to be of assistance. 
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CORRECTIONS TO ZAP 

After trying to run ZAP on a system with a 10 iB hard disk, a nuiber of probleas arose. While the original 
programme does work, it is not particularly elegant in its treatnent of the reading of LSN 0. The following 
changes will fix the problea of reading a disk which has acre than 32768 sectors. (A 10 bB hard disk has lore 
than 39000 sectors'). Changes have also been incorporated to sake the prograiae sore elegant. 

You will need to aodify three nodules. Zap, Getsec, and Getdev. The changes are all consented in the 
following listings, and the changes should appear BOLD in the final printing. 

PROCEDURE zap 
BASE 

DIM PAGE, PATH, wpath,fgnd,bgnd,bord:BYTE 

DIM maxblock:REAL it naxblock needs to be a real value to allow for t) 
DIH ident,x,y,xl,yl: INTEGER (X hard disk sector nuabers t) 
DIM title:3TRIN5U0] 
DIM CH0ICE:STRIN5[25] 



PRINT iwpath," Version 1 ,11 88/11/25" 1* Change version nuuber and date t) 
PRINT Swpath, 

PRINT #wpath,"« USE WITH CARE - PERMANENT CHANGES TO DISK STRUCTURE CAN BE MADE t# n 
PRINT twpath, 

RUN getdevfwpathjNAMEjPATHjsecdatjiaxblockjident) 
PRINT iwpath, 

RUN getsecfwpathjiaxblockjBLKNO, secdat) (t Pass sector data to getsec t) 
ON ERROR GOTO 1000 
10 HETER=BLKN0*256 
iblkno=BLKN0 
C0UNT=0 

SEEK IPATH,30 U Start at byte of LSN t) 
GET #PATH T secdat 

IF secdat ( 14) t256+secdat ( 15) Oident THEN 
x=6 \xl=40 \y=8 \yl=8 



IF CH0ICE="D" OR CH0ICE=°d° THEN 

x=5 \xl=30 \y=10 \yl=6 

RUN winopen(wpath,x,y,xi,yl) 

RUN getdev(wpath,NAHE f PATH,5ecdat,Baxblock,ident) 

RUN getseciwpathjiaxblockjBLKNO, secdat) U Pass sector array t) 

GOTO 10 

ENDIF 



PROCEDURE getsec 
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BASE Utmimt This line is an addition t) 
PARAM Hpath:BYTE 

PARAM maxblock iREAL ittt laxblock redefined as a real value t) 
PARAM blkno:REAL 

PARAM secdat (256) :BYTE Ml Pass values for current sector I) 
DIH hblkno:STRIN6C253 
1 PRINT twpath, "SECTOR NUMBER (fl>ax:$ n ; 
PRINT #wpath USING "H2>" , secdat (0) ; (t These 3 lines replace t) 
PRINT #wpath USING M H2> H , secdat <1) ; U the line beginning with t) 
PRINT #wpath USING "H2>" , secdat (2) -1 ; (» PRINT twpath USING ... I) 
PRINT twpath/) : B ; 
INPUT iwpath," ",hblkno 
hblkno="*"+hblkno 
ON ERROR 60T0 1 
blkno=VAL(hblkno) 
IF blkno>iaxblock OR blkno<0 THEN 

60TQ 1 
ENDIF 

RUN winclose(wpath) 
END 

PROCEDURE getdev 

BASE 

ON ERROR GOTO 10 

PARAH »path:BYTE 

PARAH nane:STRING[43 

PARAM path, secdat (256): BYTE 

PARAM maxblock: REAL (* taxblock redefined as a real value t) 

PARAM i dent: INTEGER 
5 INPUT twpath, U RBF Device Na«e : %naae 

IF LEFT*(nane,l )<>"/■ THEN 
nafie= u / H +naie 

ENDIF 

IF RIBHTitnaMjlJO'e" THEN 
naffle=naae+ n £ ,! 

ENDIF 

OPEN #path,naae 

SEEK tpath,0 (*>* Change seek byte to the start of LSNO t) 

GET #path, secdat 

■axblock=secdat (0) *65536 .+secdat(i)t256+secdat(2)-i it Deteriine value t) 

ident=secdat(14)t256+secdat(15) (t using all 3 bytes I) 

END U of DD.TQT t) 

10 PRINT #wpath, H H* - DEVICE NAME REQUIRED" 

GOTO 5 
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